home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / auto-l1a / idd_main.frm < prev    next >
Text File  |  1999-03-30  |  8KB  |  224 lines
  1. VERSION 5.00
  2. Begin VB.Form IDD_Main 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "NT AutoLogin "
  5.    ClientHeight    =   3405
  6.    ClientLeft      =   45
  7.    ClientTop       =   615
  8.    ClientWidth     =   2580
  9.    Icon            =   "IDD_Main.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3405
  14.    ScaleWidth      =   2580
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.TextBox IDE_ReEnterPassword 
  17.       Height          =   285
  18.       IMEMode         =   3  'DISABLE
  19.       Left            =   120
  20.       PasswordChar    =   "*"
  21.       TabIndex        =   3
  22.       Top             =   1800
  23.       Width           =   2295
  24.    End
  25.    Begin VB.CommandButton IDCM_Exit 
  26.       Caption         =   "Exit"
  27.       Height          =   375
  28.       Left            =   1320
  29.       TabIndex        =   6
  30.       Top             =   2880
  31.       Width           =   1095
  32.    End
  33.    Begin VB.CommandButton IDCM_Save 
  34.       Caption         =   "Save"
  35.       Height          =   375
  36.       Left            =   120
  37.       TabIndex        =   5
  38.       Top             =   2880
  39.       Width           =   1095
  40.    End
  41.    Begin VB.TextBox IDE_Username 
  42.       Height          =   285
  43.       Left            =   120
  44.       TabIndex        =   1
  45.       Top             =   600
  46.       Width           =   2295
  47.    End
  48.    Begin VB.TextBox IDE_Password 
  49.       Height          =   285
  50.       IMEMode         =   3  'DISABLE
  51.       Left            =   120
  52.       PasswordChar    =   "*"
  53.       TabIndex        =   2
  54.       Top             =   1200
  55.       Width           =   2295
  56.    End
  57.    Begin VB.TextBox IDE_Domain 
  58.       Height          =   285
  59.       Left            =   120
  60.       TabIndex        =   4
  61.       Top             =   2400
  62.       Width           =   2295
  63.    End
  64.    Begin VB.CheckBox IDCK_AutoLogin 
  65.       Caption         =   "Use AutoLogin"
  66.       Height          =   375
  67.       Left            =   120
  68.       TabIndex        =   0
  69.       Top             =   0
  70.       Width           =   2055
  71.    End
  72.    Begin VB.Label IDL_ReEnterPassword 
  73.       AutoSize        =   -1  'True
  74.       Caption         =   "Re-enter Password"
  75.       Height          =   195
  76.       Left            =   120
  77.       TabIndex        =   10
  78.       Top             =   1560
  79.       Width           =   1350
  80.    End
  81.    Begin VB.Label IDL_Username 
  82.       AutoSize        =   -1  'True
  83.       Caption         =   "User Name"
  84.       Height          =   195
  85.       Left            =   120
  86.       TabIndex        =   9
  87.       Top             =   360
  88.       Width           =   795
  89.    End
  90.    Begin VB.Label IDL_Password 
  91.       AutoSize        =   -1  'True
  92.       Caption         =   "Password"
  93.       Height          =   195
  94.       Left            =   120
  95.       TabIndex        =   8
  96.       Top             =   960
  97.       Width           =   690
  98.    End
  99.    Begin VB.Label IDL_Domain 
  100.       AutoSize        =   -1  'True
  101.       Caption         =   "Domain"
  102.       Height          =   195
  103.       Left            =   120
  104.       TabIndex        =   7
  105.       Top             =   2160
  106.       Width           =   540
  107.    End
  108.    Begin VB.Menu IDM_About 
  109.       Caption         =   "About"
  110.    End
  111. End
  112. Attribute VB_Name = "IDD_Main"
  113. Attribute VB_GlobalNameSpace = False
  114. Attribute VB_Creatable = False
  115. Attribute VB_PredeclaredId = True
  116. Attribute VB_Exposed = False
  117. Option Explicit
  118. Private Sub Form_Load()
  119.     If OperatingSystemVersion = WindowsNT Then
  120.         IDCK_AutoLogin.Value = GetSettingSpecial("CurrentVersion", "WinLogon", "AutoAdminLogon", 0, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  121.         IDE_Username.Text = GetSettingSpecial("CurrentVersion", "WinLogon", "DefaultUserName", "", HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  122.         IDE_Password.Text = GetSettingSpecial("CurrentVersion", "WinLogon", "DefaultPassword", "", HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  123.         IDE_ReEnterPassword.Text = IDE_Password.Text
  124.         IDE_Domain.Text = GetSettingSpecial("CurrentVersion", "WinLogon", "DefaultDomainName", "", HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  125.     Else
  126.         Call MsgBox("AutoLogin is only for Windows NT 4.0.  Please download TweakUI for 95.", vbOKOnly, "Exiting AutoLogin")
  127.         Unload Me
  128.     End If
  129.  
  130.     Call IDCK_AutoLogin_Click
  131.     IDCM_Save.Enabled = False
  132. End Sub
  133.  
  134. Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  135. Dim ret As Integer
  136.     If IDCM_Save.Enabled = True Then
  137.         ret = MsgBox("Do you want to save these settings?", vbYesNo + vbQuestion, "Exit AutoLogin")
  138.         If ret = vbYes Then
  139.             Call IDCM_Save_Click
  140.             Unload Me
  141.         Else
  142.             Unload Me
  143.         End If
  144.     Else
  145.         Unload Me
  146.     End If
  147. End Sub
  148.  
  149. Private Sub IDCK_AutoLogin_Click()
  150.     IDCM_Save.Enabled = True
  151.     If IDCK_AutoLogin.Value = vbUnchecked Then
  152.         IDL_Username.Enabled = False
  153.         IDL_Password.Enabled = False
  154.         IDL_ReEnterPassword.Enabled = False
  155.         IDL_Domain.Enabled = False
  156.         IDE_Username.Enabled = False
  157.         IDE_Password.Enabled = False
  158.         IDE_ReEnterPassword.Enabled = False
  159.         IDE_Domain.Enabled = False
  160.     Else
  161.         IDL_Username.Enabled = True
  162.         IDL_Password.Enabled = True
  163.         IDL_ReEnterPassword.Enabled = True
  164.         IDL_Domain.Enabled = True
  165.         IDE_Username.Enabled = True
  166.         IDE_Password.Enabled = True
  167.         IDE_ReEnterPassword.Enabled = True
  168.         IDE_Domain.Enabled = True
  169.     End If
  170. End Sub
  171.  
  172. Private Sub IDCM_Exit_Click()
  173.     Unload Me
  174. End Sub
  175.  
  176. Private Sub IDCM_Save_Click()
  177.     If IDE_Password.Text <> IDE_ReEnterPassword.Text Then
  178.         Call MsgBox("Passwords do not match", vbCritical + vbOKOnly, "Error")
  179.         IDE_Password.SetFocus
  180.         Exit Sub
  181.     End If
  182.     Call SaveSettingSpecial("CurrentVersion", "WinLogon", "AutoAdminLogon", IDCK_AutoLogin.Value, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  183.     Call SaveSettingSpecial("CurrentVersion", "WinLogon", "DefaultUserName", IDE_Username.Text, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  184.     Call SaveSettingSpecial("CurrentVersion", "WinLogon", "DefaultPassword", IDE_Password.Text, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  185.     Call SaveSettingSpecial("CurrentVersion", "WinLogon", "DefaultDomainName", IDE_Domain.Text, HKEY_LOCAL_MACHINE, "SOFTWARE\Microsoft\Windows NT")
  186.     IDCM_Save.Enabled = False
  187. End Sub
  188. Private Sub IDE_Domain_Change()
  189.        IDCM_Save.Enabled = True
  190. End Sub
  191.  
  192. Private Sub IDE_Domain_GotFocus()
  193.     IDE_Domain.SelStart = 0
  194.     IDE_Domain.SelLength = Len(IDE_Domain.Text)
  195. End Sub
  196.  
  197. Private Sub IDE_Password_Change()
  198.     IDCM_Save.Enabled = True
  199. End Sub
  200. Private Sub IDE_Password_GotFocus()
  201.     IDE_Password.SelStart = 0
  202.     IDE_Password.SelLength = Len(IDE_Password.Text)
  203. End Sub
  204.  
  205. Private Sub IDE_ReEnterPassword_Change()
  206.     IDCM_Save.Enabled = True
  207. End Sub
  208. Private Sub IDE_ReEnterPassword_GotFocus()
  209.     IDE_ReEnterPassword.SelStart = 0
  210.     IDE_ReEnterPassword.SelLength = Len(IDE_ReEnterPassword.Text)
  211. End Sub
  212.  
  213. Private Sub IDE_Username_Change()
  214.     IDCM_Save.Enabled = True
  215. End Sub
  216. Private Sub IDE_Username_GotFocus()
  217.     IDE_Username.SelStart = 0
  218.     IDE_Username.SelLength = Len(IDE_Username.Text)
  219. End Sub
  220.  
  221. Private Sub IDM_About_Click()
  222.     Call MsgBox("AutoLogin Tool v" & App.Major & "." & App.Minor & "." & App.Revision & " for Windows NT 4.0 - Paul Mather - April 1999", vbOKOnly, "About")
  223. End Sub
  224.